﻿// Public Class Relation
// Public Sub New(ByVal Table As DataGrid)
// Me.m_Table = Table
// End Sub
// Public ReadOnly Property ChildTable As Marmat.Forms.DataGrid
// Get
// Return Me.m_Table
// End Get
// End Property
// Private m_Table As Marmat.Forms.DataGrid



// <DefaultValue(CStr(Nothing))>
// Public Property Table As Marmat.Forms.DataGrid
// Get
// Return Me.m_ParentTable
// End Get
// Set(value As Marmat.Forms.DataGrid)
// If Me.m_ParentTable IsNot value Then
// If Me.m_ParentTable IsNot Nothing AndAlso Me.m_ParentTable.ChildRelation.Contains(Me) Then
// Me.m_ParentTable.ChildRelation.Remove(Me)
// End If

// Me.m_ParentTable = value

// If Me.m_ParentTable IsNot Nothing AndAlso Me.m_ParentTable.ChildRelation.Contains(Me) = False Then
// Me.m_ParentTable.ChildRelation.Add(Me)
// End If
// End If
// End Set
// End Property
// Private m_ParentTable As DataGrid


// <DefaultValue(GetType(SyncLoadModeEnum), "None")>
// Public Property SyncLoadMode As SyncLoadModeEnum = SyncLoadModeEnum.None


// <EditorBrowsable(EditorBrowsableState.Always)>
// <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
// Public ReadOnly Property Items As List(Of RelationColumn)
// Get
// If m_Items Is Nothing Then
// m_Items = New List(Of RelationColumn)
// End If
// Return m_Items
// End Get
// End Property
// Private m_Items As List(Of RelationColumn)
// End Class
// Public Class Relation
// Public Sub New(ByVal Table As DataGrid)
// Me.m_Table = Table
// End Sub
// Public ReadOnly Property ChildTable As Marmat.Forms.DataGrid
// Get
// Return Me.m_Table
// End Get
// End Property
// Private m_Table As Marmat.Forms.DataGrid



// <DefaultValue(CStr(Nothing))>
// Public Property Table As Marmat.Forms.DataGrid
// Get
// Return Me.m_ParentTable
// End Get
// Set(value As Marmat.Forms.DataGrid)
// If Me.m_ParentTable IsNot value Then
// If Me.m_ParentTable IsNot Nothing AndAlso Me.m_ParentTable.ChildRelation.Contains(Me) Then
// Me.m_ParentTable.ChildRelation.Remove(Me)
// End If

// Me.m_ParentTable = value

// If Me.m_ParentTable IsNot Nothing AndAlso Me.m_ParentTable.ChildRelation.Contains(Me) = False Then
// Me.m_ParentTable.ChildRelation.Add(Me)
// End If
// End If
// End Set
// End Property
// Private m_ParentTable As DataGrid


// <DefaultValue(GetType(SyncLoadModeEnum), "None")>
// Public Property SyncLoadMode As SyncLoadModeEnum = SyncLoadModeEnum.None


// <EditorBrowsable(EditorBrowsableState.Always)>
// <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
// Public ReadOnly Property Items As List(Of RelationColumn)
// Get
// If m_Items Is Nothing Then
// m_Items = New List(Of RelationColumn)
// End If
// Return m_Items
// End Get
// End Property
// Private m_Items As List(Of RelationColumn)
// End Class
